home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Easy Internet
/
Internet Training Corporation Easy Internet Rev21 (ITC).ISO
/
mac
/
DATA
/
1005.scp
< prev
next >
Wrap
Text File
|
1997-08-09
|
768b
|
59 lines
!
@ANSWER
@HANGUP
EXIT 0
!
@ORIGINATE
!
CHRDELAY 1
!
@LABEL 10
MATCHCLR
MATCHSTR 1 11 " login: "
MATCHREAD 300
NOTE "Connect script couldn't match \34 login: \34" 3
JUMP 99
!
@LABEL 11
IFSTR 11 12 "<Guest>"
IFSTR 11 12 ""
PAUSE 1
WRITE "^u\13"
JUMP 13
!
@LABEL 12
ASK 0 "Please enter name: "
WRITE "^*\13"
!
@LABEL 13
MATCHCLR
MATCHSTR 1 14 "Password: "
MATCHREAD 300
NOTE "Connect script couldn't match \34Password: \34" 3
JUMP 99
!
@LABEL 14
IFSTR 12 15 ""
PAUSE 1
WRITE "^p\13"
JUMP 16
!
@LABEL 15
ASK 1 "Please enter password: "
WRITE "^*\13"
!
@LABEL 16
MATCHCLR
MATCHSTR 1 90 " enabled\13\10"
MATCHREAD 300
NOTE "Connect script couldn't match \34 enabled\13\10\34" 3
JUMP 99
!
@LABEL 90
PAUSE 1
EXIT 0
!
@LABEL 99
PAUSE 60
EXIT -6002 "Connection script failed."